home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS077A.dsk / THROTTLE.bas < prev    next >
BASIC Source File  |  2012-02-16  |  365b  |  6 lines
  1. 19  PR# 0: IN# 0
  2. 20  FOR I = 784 TO 854
  3. 21  READ D: POKE I,D: NEXT I
  4. 22  DATA  72,44,0,192,173,0,192,44,16,192,201,160,240,29,201,141,240,22,138,72,152,72,162,0,32,30,251,200,152,32,168,252,104,168,104,170,104,76,240,253,76,3,224,44,0,192,16,251,141,16,192,48,221,169,240,133,54,169,253,133
  5. 23  DATA  55,96,169,16,133,54,169,3,133,55,96
  6. 24  CALL 846: CALL 976: END